home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / editcont.fr_ / editcont.fr
Text File  |  1995-07-20  |  3KB  |  94 lines
  1. VERSION 4.00
  2. Begin VB.Form frmShowEdit 
  3.    Caption         =   "Update Publishers"
  4.    ClientHeight    =   6510
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   5745
  8.    Height          =   7005
  9.    Left            =   990
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6510
  12.    ScaleWidth      =   5745
  13.    Top             =   1125
  14.    Width           =   5955
  15.    Begin VB.TextBox txtRecordCount 
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   285
  18.       Left            =   1680
  19.       TabIndex        =   3
  20.       Top             =   3840
  21.       Width           =   2535
  22.    End
  23.    Begin VB.TextBox txtConnection 
  24.       BackColor       =   &H00C0C0C0&
  25.       Height          =   285
  26.       Left            =   1680
  27.       TabIndex        =   1
  28.       Top             =   3480
  29.       Width           =   2535
  30.    End
  31.    Begin VB.CommandButton cmdQuit 
  32.       Caption         =   "&Quit"
  33.       Height          =   495
  34.       Left            =   2760
  35.       TabIndex        =   4
  36.       Top             =   2760
  37.       Width           =   1215
  38.    End
  39.    Begin VB.Label lblRecordCount 
  40.       Alignment       =   1  'Right Justify
  41.       Caption         =   "&Record Count:"
  42.       Height          =   255
  43.       Left            =   360
  44.       TabIndex        =   2
  45.       Top             =   3840
  46.       Width           =   1215
  47.    End
  48.    Begin VB.Label lblConnection 
  49.       Alignment       =   1  'Right Justify
  50.       Caption         =   "&Connection:"
  51.       Height          =   255
  52.       Left            =   360
  53.       TabIndex        =   0
  54.       Top             =   3480
  55.       Width           =   1215
  56.    End
  57. End
  58. Attribute VB_Name = "frmShowEdit"
  59. Attribute VB_Creatable = False
  60. Attribute VB_Exposed = False
  61. Option Explicit
  62.  
  63. Dim EditDB As VBHTEditTitlesDB.EditPublishers
  64.  
  65.  
  66. Private Sub cmdQuit_Click()
  67.     Set EditDB = Nothing
  68.     Unload Me
  69. End Sub
  70.  
  71. Private Sub Form_Load()
  72.     Set EditDB = New VBHTEditTitlesDB.EditPublishers
  73.     Dim border As Integer
  74.     
  75.     EditDB.SetOnForm frmShowEdit.hWnd
  76.     txtConnection = EditDB.Connection
  77.     txtRecordCount = EditDB.NumRecords
  78.  
  79.     border = 0.05 * EditDB.Width
  80.     EditDB.Move border, border
  81.     
  82.     frmShowEdit.Width = EditDB.Width + 2 * border + (frmShowEdit.Width - frmShowEdit.ScaleWidth)
  83.     lblConnection.Move border, EditDB.Height + 2 * border
  84.     txtConnection.Move lblConnection.Width + 1.5 * border, lblConnection.TOP
  85.     lblRecordCount.Move border, EditDB.Height + 2 * border + lblConnection.Height
  86.     txtRecordCount.Move txtConnection.Left, lblRecordCount.TOP
  87.     cmdQuit.Move frmShowEdit.ScaleWidth - cmdQuit.Width - border, lblConnection.TOP
  88.     frmShowEdit.ScaleHeight = cmdQuit.TOP + cmdQuit.Height + border
  89. End Sub
  90.  
  91.  
  92.  
  93.  
  94.